home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue29 / web / FSTATE2.DFM / FSTATE2.txt
Encoding:
Text File  |  1997-07-30  |  1.0 KB  |  35 lines
  1. object WebModule1: TWebModule1
  2.   Actions = <
  3.     item
  4.       Default = True
  5.       MethodType = mtGet
  6.       Name = 'WebActionItem1'
  7.       OnAction = WebModule1WebActionItem1Action
  8.     end>
  9.   Left = 200
  10.   Top = 108
  11.   Height = 150
  12.   Width = 215
  13.   object PageProducer1: TPageProducer
  14.     HTMLDoc.Strings = (
  15.       
  16.         '    <HTML><HEAD><TITLE>Maintaining state using POST request meth' +
  17.         'od</TITLE></HEAD>'
  18.       '    <BODY><H2>Thanks for your details <#fullname></H2>'
  19.       
  20.         '    <H3>Would you like to receive marketing information from oth' +
  21.         'er subsidiaries of Acme Consulants Ltd?<BR><BR>'
  22.       
  23.         '    <FORM ACTION="http://localhost/scripts/thankyou.dll" METHOD=' +
  24.         '"POST">'
  25.       '    <INPUT TYPE="SUBMIT" NAME="include" VALUE="Yes">'
  26.       '    <INPUT TYPE="SUBMIT" NAME="include" VALUE="No">'
  27.       '    <INPUT TYPE="HIDDEN" NAME="fullname" VALUE="<#FULLNAME>">'
  28.       '    </FORM>'
  29.       '    </BODY></HTML>')
  30.     OnHTMLTag = PageProducer1HTMLTag
  31.     Left = 40
  32.     Top = 16
  33.   end
  34. end
  35.